home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / business / cntws11a.zip / APJNLHST.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1997-02-13  |  12KB  |  87 lines
  1. APJNLHST
  2. e = saletemp->prod_code    
  3.     do chngcus
  4.     do chngcd
  5.     invcapt.etname9.value = invcapt.etname16.value * salepr1->sell_price    
  6. return
  7. procedure chngord
  8.     orderno=this.value
  9.     replace second_ref with orderno
  10. return
  11. procedure chngdate
  12.     inv_date = this.value
  13.     replace date with inv_date
  14. return
  15. procedure doctotal
  16.     sele saletemp
  17. *    recpos = recno()
  18.     sum saletemp->amount to totdoc
  19.     invcapt.ETNAME10.value = totdoc
  20.     go top
  21. return
  22. procedure batchtot
  23. ACT_CODE
  24. SUB_CODE
  25. CB_CODE
  26. COMMENTS
  27. SECOND_REF
  28. doctotal
  29.     do batchtot
  30.     set filter to first_ref ==invno
  31. *    go top
  32. return
  33. procedure prtbat1
  34.     sele saletemp
  35.     set filter to
  36.     set order to first_ref
  37.     do related
  38.     sele saletemp
  39. *    lvoid = invcapt.detail.release()
  40.     do prtbtch with "[ Invoice/Credit Note Batch List ]","prtbatc3"
  41.     sele customer
  42.     set relation to
  43.     sele salepr1
  44.     set relation to
  45.     sele saletemp
  46.     set relation to
  47.     set fields to
  48.     set filter to first_ref == invno
  49.     do formopen
  50.     lvoid = invcapt.FIRST_R002.setfocus()
  51.     invcapt.FIRST_R002.value = invno
  52. return
  53. procedure chngqty
  54.     invcapt.etname9.value = this.value * salepr1->sell_price
  55.     replace amount with invcapt.etname9.value,;
  56.     cost_amount with qty * cost
  57.     lvoid = invcapt.submit()
  58. return
  59. procedure chngqty1
  60.     invcapt.etname9.value = invcapt.etname16.value * salepr1->sell_price
  61.     replace amount with invcapt.etname9.value,;
  62.     cost_amount with qty * cost
  63. *    lvoid = invcapt.submit()
  64. *    lvoid = invcapt.detail.refreshrecord()
  65.     lvoid = invcapt.refresh()
  66. return
  67. procedure related
  68. * set up relations to print invoice batch listing
  69. sele customer
  70. set order to sub_code
  71. sele salepr1
  72. set order to prod_code
  73. sele saletemp
  74. set relation to sub_code into customer,prod_code into salepr1
  75. set fields to saletemp->first_ref,saletemp->second_ref,;
  76.     saletemp->sub_code,saletemp->prod_code,saletemp->qty
  77. ACT_CODE
  78. ACT_CODE
  79. SUB_CODE
  80. SUB_CODE
  81. CB_CODE
  82. CB_CODE
  83. COMMENTS
  84. COMMENTS
  85. SECOND_REF
  86. SECOND_REF
  87.